home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / cadence.arc / VOL1NO5.ARC / BALLOON2.LSP next >
Encoding:
Text File  |  1987-05-18  |  902 b   |  30 lines
  1. ;ANDY DIMACALE 10/16/86
  2. ;
  3. ;This program creates balloons for tagging parts of identifying
  4. ;roughing connecitons.
  5. ;
  6. ;
  7. (DEFUN C:BALLOON ()
  8. (SETVAR "CMDECHO" 0)
  9. (GRAPHSCR)
  10. (IF(= RAD NIL) (SETQ RAD(/ (GETREAL "\nENTER DIAMETER OF BALLOON: ") 2)))
  11. (IF(= TXTL NIL) (SETQ TXTL (GETSTRING "\nENTER TEXT LAYER: ")))
  12. (IF(= TS NIL) (SETQ TS (GETREAL "\nENTER TEXT HEIGHT: ")))
  13. (SETVAR "BLIPMODE" 1)
  14.      (SETQ X      (GETPOINT "\nFIRST POINT: ")
  15.            Y      (GETPOINT "\nCENTER POINT: ")
  16.            TXT    (GETSTRING "\nENTER TEXT: ")
  17.            DIST   (DISTANCE X Y)
  18.            ANG    (ANGLE X Y)
  19.            YY     (POLAR X ANG (- DIST RAD))
  20.            LAY    (GETVAR "CLAYER")
  21.      )
  22. (SETVAR "BLIPMODE" 0)
  23. (COMMAND "LINE" X YY "")
  24.  (COMMAND "CIRCLE" Y RAD)
  25.   (COMMAND "LAYER" "S" TXTL "")
  26.    (COMMAND "TEXT" "M" Y TS "")
  27.     (COMMAND TXT)
  28.      (COMMAND "LAYER" "S" LAY "")
  29. )
  30.